home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Tools & Utilities
/
Collection of Tools and Utilities.iso
/
basic
/
qbmouse.zip
/
TEST.BAS
< prev
next >
Wrap
BASIC Source File
|
1993-10-11
|
4KB
|
164 lines
' A simple test program, which shows what all of the pre-made bitmaps
' (in BITMAPS.TXT) look like. Just click a button to move on to the
' next bitmap.
'$INCLUDE: 'mouse.bi'
'$INCLUDE: 'bitmaps.txt'
SCREEN 2
CLS
DIM event AS MouseEvent
PRINT "Wait..."
LINE (500, 0)-(600, 50), , BF
IF MouseInit(2) = 0 THEN
SCREEN 0
CLS
PRINT "No mouse!"
END
END IF
PRINT "Ok."
LOCATE 23, 30
PRINT "Default Mouse Pointer"
WHILE NOT MouseButton(event, TRUE)
WEND
LOCATE 23, 30
PRINT " "
MouseGraphicsPtr 5, 0, MapHand
LOCATE 23, 37
PRINT "MapHand"
WHILE NOT MouseButton(event, TRUE)
WEND
MouseGraphicsPtr 8, 0, MapHand2
LOCATE 23, 36
PRINT "MapHand2"
WHILE NOT MouseButton(event, TRUE)
WEND
MouseGraphicsPtr 8, 8, MapHand3
LOCATE 23, 36
PRINT "MapHand3"
WHILE NOT MouseButton(event, TRUE)
WEND
MouseGraphicsPtr 11, 0, MapLeftHand
LOCATE 23, 34
PRINT "MapLeftHand"
WHILE NOT MouseButton(event, TRUE)
WEND
MouseGraphicsPtr 8, 8, MapLeftHand2
LOCATE 23, 34
PRINT "MapLeftHand2"
WHILE NOT MouseButton(event, TRUE)
WEND
MouseGraphicsPtr 8, 4, MapHourGlass
LOCATE 23, 34
PRINT "MapHourGlass"
WHILE NOT MouseButton(event, TRUE)
WEND
MouseGraphicsPtr 8, 4, MapHourGlass2
LOCATE 23, 33
PRINT "MapHourGlass2"
WHILE NOT MouseButton(event, TRUE)
WEND
MouseGraphicsPtr 8, 4, MapHourGlass3
LOCATE 23, 33
PRINT "MapHourGlass3"
WHILE NOT MouseButton(event, TRUE)
WEND
MouseGraphicsPtr 0, 0, MapArrow
LOCATE 23, 33
PRINT " MapArrow "
WHILE NOT MouseButton(event, TRUE)
WEND
MouseGraphicsPtr 7, 0, MapArrow2
LOCATE 23, 36
PRINT "MapArrow2"
WHILE NOT MouseButton(event, TRUE)
WEND
MouseGraphicsPtr 1, 0, MapArrow3
LOCATE 23, 36
PRINT "MapArrow3"
WHILE NOT MouseButton(event, TRUE)
WEND
MouseGraphicsPtr 7, 7, MapCross
LOCATE 23, 36
PRINT "MapCross "
WHILE NOT MouseButton(event, TRUE)
WEND
MouseGraphicsPtr 8, 8, MapClock
LOCATE 23, 36
PRINT "MapClock"
WHILE NOT MouseButton(event, TRUE)
WEND
MouseGraphicsPtr 7, 7, MapTextI
LOCATE 23, 36
PRINT "MapTextI"
WHILE NOT MouseButton(event, TRUE)
WEND
MouseGraphicsPtr 7, 7, MapTextI2
LOCATE 23, 36
PRINT "MapTextI2"
WHILE NOT MouseButton(event, TRUE)
WEND
MouseGraphicsPtr 7, 3, MapBox
LOCATE 23, 36
PRINT " MapBox "
WHILE NOT MouseButton(event, TRUE)
WEND
MouseGraphicsPtr 8, 8, MapWindow
LOCATE 23, 36
PRINT "MapWindow"
WHILE NOT MouseButton(event, TRUE)
WEND
MouseGraphicsPtr 7, 15, MapNail
LOCATE 23, 36
PRINT " MapNail "
WHILE NOT MouseButton(event, TRUE)
WEND
MouseGraphicsPtr 0, 2, MapHammer
LOCATE 23, 36
PRINT "MapHammer"
WHILE NOT MouseButton(event, TRUE)
WEND
MouseGraphicsPtr 8, 8, MapUFP
LOCATE 23, 36
PRINT " MapUFP "
WHILE NOT MouseButton(event, TRUE)
WEND
MouseGraphicsPtr 4, 0, MapPencil
LOCATE 23, 36
PRINT "MapPencil"
WHILE NOT MouseButton(event, TRUE)
WEND
MouseGraphicsPtr 15, 7, MapMouse
LOCATE 23, 36
PRINT "MapMouse "
WHILE NOT MouseButton(event, TRUE)
WEND
MouseGraphicsPtr 7, 0, MapHypo
LOCATE 23, 36
PRINT " MapHypo"
WHILE NOT MouseButton(event, TRUE)
WEND
MouseGraphicsPtr 7, 0, MapScrewDriver
LOCATE 23, 33
PRINT "MapScrewDriver"
WHILE NOT MouseButton(event, TRUE)
WEND
MouseGraphicsPtr 6, 0, MapKnife
LOCATE 23, 33
PRINT " MapKnife "
WHILE NOT MouseButton(event, TRUE)
WEND
MouseGraphicsPtr 8, 0, MapScrew
LOCATE 23, 36
PRINT "MapScrew"
WHILE NOT MouseButton(event, TRUE)
WEND
MouseHide
SCREEN 0
CLS
PRINT "Goodbye!"
END